home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aac.d64 / decimal.func < prev    next >
Text File  |  2007-02-28  |  344b  |  13 lines
  1. 9000 //
  2. 9010 FUNC DECIMAL(NUMBER$,BASE) CLOSED
  3. 9020   DIM N$ OF 36
  4. 9030   N$:="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  5. 9040   L'N:=LEN(NUMBER$)
  6. 9050   IF L'N=1 THEN
  7. 9060     RETURN (NUMBER$ IN N$)-1
  8. 9070   ELSE 
  9. 9080     REST:=DECIMAL(NUMBER$(1:L'N-1),BASE)*BASE
  10. 9090     RETURN REST+DECIMAL(NUMBER$(L'N),BASE)
  11. 9100   ENDIF 
  12. 9110 ENDFUNC DECIMAL
  13.